home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Leo / Horoscope Companion: Leo.iso / pc / leo / ee.dir / Internal_13.ls < prev    next >
Encoding:
Text File  |  1996-10-08  |  928 b   |  38 lines
  1. on startRollover whichSprite
  2.   global gWhichAge
  3.   if gWhichAge <> "U30" then
  4.     hStartRolloverAction(whichSprite)
  5.   end if
  6. end
  7.  
  8. on mouseDown
  9.   global gWhichAge
  10.   if gWhichAge <> "U30" then
  11.     if hButtonAction02() then
  12.       mouseUp()
  13.     end if
  14.   end if
  15. end
  16.  
  17. on mouseUp
  18.   global gWhichAge, gWhichGender, gWhichYear, gTextSpriteNum, gWhichOldAgeSprite
  19.   if gWhichAge <> "U30" then
  20.     cursor(4)
  21.     hDefaultScrollText()
  22.     set gWhichAge to "U30"
  23.     set tWhichText to the number of member (gWhichGender && gWhichAge && gWhichYear && "text") of castLib the castLibNum of sprite gTextSpriteNum
  24.     set the memberNum of sprite gTextSpriteNum to member tWhichText
  25.     puppetSprite(gWhichOldAgeSprite, 0)
  26.     set gWhichOldAgeSprite to the clickOn
  27.     updateStage()
  28.     hFingerPointingCursor()
  29.   end if
  30. end
  31.  
  32. on endRollover whichSprite
  33.   global gWhichAge
  34.   if gWhichAge <> "U30" then
  35.     hEndRolloverAction(whichSprite)
  36.   end if
  37. end
  38.